VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmTranspose 
   Caption         =   "Transpose Highlighted Text"
   ClientHeight    =   1350
   ClientLeft      =   45
   ClientTop       =   345
   ClientWidth     =   3330
   OleObjectBlob   =   "frmTranspose.frx":0000
   ShowModal       =   0   'False
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "frmTranspose"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Sub cmdTranspose_Click()

    frmTranspose.txtStart = fnChangeNote(frmTranspose.txtStart)
    frmTranspose.txtEnd = fnChangeNote(frmTranspose.txtEnd)
    Call modTranspose.DoTheTransposeBaby(frmTranspose.txtStart.Text, frmTranspose.txtEnd.Text)
    
    Selection.MoveDown Unit:=wdLine, Count:=2
    Selection.HomeKey Unit:=wdLine
    Selection.endKey Unit:=wdLine, Extend:=wdExtend
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
End Sub

Private Sub CommandButton1_Click()

End Sub

Private Sub SpinButton1_SpinUp()
    Selection.HomeKey Unit:=wdLine
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.HomeKey Unit:=wdLine
    Selection.endKey Unit:=wdLine, Extend:=wdExtend
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
End Sub
Private Sub SpinButton1_SpinDown()
    Selection.endKey Unit:=wdLine
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    
    Selection.HomeKey Unit:=wdLine
    Selection.endKey Unit:=wdLine, Extend:=wdExtend
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
End Sub

Private Sub cmdSecTitle_Click()

'
' subMakeSectionTitle Macro
'
'
    Selection.HomeKey Unit:=wdLine
    Selection.endKey Unit:=wdLine, Extend:=wdExtend
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    
    Selection.Range.Case = wdTitleSentence
    With Selection.Font
        .Size = 10
        .Bold = True
        .Italic = True
        .Underline = wdUnderlineSingle
        .UnderlineColor = wdColorAutomatic
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = False
        .SmallCaps = False
        .AllCaps = False
        .Color = wdColorAutomatic
        .Engrave = False
        .Superscript = False
        .Subscript = False
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 0
        .Animation = wdAnimationNone
    End With
    Selection.endKey Unit:=wdLine
    Selection.TypeText Text:=":"
End Sub

